program hwg
const a=1000;x=20.5;t=true;ssae='a';
type Pair=record first :integer;second :real end;
List=array[1..100] of integer;
ss=enum(yys,xxs,zzs,tst);uu=union ssa:real;ssq:List;ww:Pair end;
jo=pointer List;
var xj:jo;bb,mm:array[1..100] of real;g,n:integer;aaa :real;yuo :uu;tia:ss;
function gjg(val h1:real,val bal:integer,var goo:integer):integer;
const bb2=213;
procedure fac(val nn:integer):void;
var k,t:integer;
begin
t:=1;
for k:=2 to nn do
t:=t * k;
t:=t * 5;
gjg(2.3,t)
end
begin
bal:=bb2;
bal:=5;
bal:=5;
gjg:=100
end
begin
if ((n>=100)and(n<=520)xor(n=6))
then 
write(gjg(3.23,26,55));
goto ttst
else
if (n=(12-8))
then
goto ttst
else
if (n>=12) 
then 
goto ttst;
while (n>=56) do 
n:=n-1;
for n:=1 to 2 * n do
   g:=100;
g:=gjg(3.23,25,34)+gjg(3.23,25,98)+gjg(3.23,25,67)+gjg(3.23,25,98)
end